(rx-not): Bind case-fold-search to nil.

diff --git a/lisp/emacs-lisp/rx.el b/lisp/emacs-lisp/rx.el
index bc16a84b156da327535fafbabe44dcbb561536ba..c6f9ce6f4a698837d5312d612b883d69dd6c3970 100644 (file)
--- a/lisp/emacs-lisp/rx.el
+++ b/lisp/emacs-lisp/rx.el
@@ -345,7 +345,8 @@ matches anything."
 (defun rx-not (form)
   "Parse and produce code from FORM.  FORM is `(not ...)'."
   (rx-check form)
-  (let ((result (rx-to-string (cadr form) 'no-group)))
+  (let ((result (rx-to-string (cadr form) 'no-group))
+       case-fold-search)
     (cond ((string-match "\\`\\[^" result)
           (if (= (length result) 4)
               (substring result 2 3)